﻿Imports System

Namespace System.Workflow.Runtime.Tracking
    Public NotInheritable Class ProfileUpdatedEventArgs
        Inherits EventArgs
        ' Methods
        Public Sub New()
        End Sub

        Public Sub New(ByVal workflowType As Type, ByVal profile As TrackingProfile)
            Me._workflowType = workflowType
            Me._profile = profile
        End Sub


        ' Properties
        Public Property TrackingProfile As TrackingProfile
            Get
                Return Me._profile
            End Get
            Set(ByVal value As TrackingProfile)
                Me._profile = value
            End Set
        End Property

        Public Property WorkflowType As Type
            Get
                Return Me._workflowType
            End Get
            Set(ByVal value As Type)
                Me._workflowType = value
            End Set
        End Property


        ' Fields
        Private _profile As TrackingProfile
        Private _workflowType As Type
    End Class
End Namespace

